Due to interface issues, it can sometimes be difficult to quickly set your "Index Page"
aka "Home Page" aka "Start Page" in VoodooPad. This GUI AppleScript aids the process
by setting the start page to the currently open page of your active VoodooPad Document.

Note that this GUI script was tested in 2.1.2, and that the GUI might change in future versions.

set VPinfo to getVPinfo()
set theDoc to item 1 of VPinfo
set thePage to item 2 of VPinfo
set thePropWindow to theDoc & " Properties" as string
tell application "VoodooPad" to activate
tell application "System Events" to tell process "VoodooPad"
	if (exists of window thePropWindow) is false then
		click menu item "Document Info" of menu 1 of menu bar item "Page" of menu bar 1
		repeat until (window thePropWindow exists)
			delay 0.5
		end repeat
	end if
	tell window thePropWindow
		tell pop up button 1
			click
			click menu item thePage of menu 1
		end tell
		click button 1 -- close property window
	end tell
end tell
on getVPinfo()
	tell application "VoodooPad"
		set oldDelims to AppleScript's text item delimiters
		set theNames to ""
		set theNames to name of window 1
		if theNames is "" then set theNames to name of window 2
		set AppleScript's text item delimiters to ".vdoc:"
		set theNames to theNames's text items as list
		set AppleScript's text item delimiters to oldDelims
	end tell
	return theNames
end getVPinfo

Submitted by – mike [dot] com [at] mac [dot] com